home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / ProTERM Mac1.2a.sit / ProTERM Mac1.2a / Macros / Contributed / Derek's HTML Shortcuts / Resident User HTML
Text File  |  1996-07-24  |  4KB  |  259 lines
  1. /**************************************
  2.  *                                    *
  3.  *  ProTERM Mac v1.2 HTML Tag Macros  *
  4.  *                                    *
  5.  *   Version 9.0.1  Updated 7/21/96   *
  6.  *                                    *
  7.  *     Developed by Derek Cline       *
  8.  *                                    *
  9.  **************************************/
  10. //
  11. // NOTE: Text between '/*' and '*/' and following '//' are comments.
  12. //
  13.  
  14. //
  15. // special "link" code just in case file is executed directly
  16. //
  17. FUNC main()
  18. {
  19.  EXTERN(PREF_GET("mac1"),main(1));
  20.  RETURN;
  21. }
  22.  
  23.  
  24. /***********************************************************************/
  25. /*                   Start of Startup Macros                           */
  26. /***********************************************************************/
  27.  
  28. FUNC startup(STR file)
  29. {
  30.  
  31. //
  32. // Add startup macro variables after this comment
  33. //
  34.  
  35. // default editor font size
  36. PREF_SET("EDFS",9);
  37.  
  38. //
  39. // Add startup macro code after this comment
  40. //
  41.  
  42.  UI_EQUIV("Edit:Convert:Uppercase","1")
  43.  UI_EQUIV("Edit:Convert:Lowercase","2")
  44.  
  45. // leave this code unchanged
  46.  RESIDENT("",0,#KeyAccess+#LibAccess);
  47.  RETURN;
  48. }
  49.  
  50.  
  51. /***********************************************************************/
  52. /*                   Start of Keyboard Macros                          */
  53. /***********************************************************************/
  54.  
  55. //
  56. // COMMAND+OPTION+B: Open Bold Tag
  57. //
  58. FUNC ked_090B()
  59. {
  60.  UI_TYPE('<B>');
  61.  RETURN;
  62. }
  63.  
  64.  
  65. //
  66. // COMMAND+CONTROL+OPTION+B: Close Bold Tag
  67. //
  68. FUNC ked_190B()
  69. {
  70.  UI_TYPE('</B>');
  71.  RETURN;
  72. }
  73.  
  74.  
  75.  
  76. //
  77. // COMMAND+OPTION+F: Open Font Tag
  78. //
  79. FUNC ked_0903()
  80. {
  81.  UI_TYPE('<FONT SIZE="" COLOR="">');
  82.  RETURN;
  83. }
  84.  
  85.  
  86. //
  87. // COMMAND+CONTROL+OPTION+F: Close Font Tag
  88. //
  89. FUNC ked_1903()
  90. {
  91.  UI_TYPE('</FONT>');
  92.  RETURN;
  93. }
  94.  
  95.  
  96. //
  97. // COMMAND+OPTION+C: Open Center Tag
  98. //
  99. FUNC ked_0908()
  100. {
  101.  UI_TYPE('<CENTER>');
  102.  RETURN;
  103. }
  104.  
  105.  
  106. //
  107. // COMMAND+CONTROL+OPTION+C: Close Center Tag
  108. //
  109. FUNC ked_1908()
  110. {
  111.  UI_TYPE('</CENTER>');
  112.  RETURN;
  113. }
  114.  
  115.  
  116. //
  117. // COMMAND+OPTION+H: Open HTML Tag <B>
  118. //
  119. FUNC ked_0904()
  120. {
  121.  UI_TYPE('<HTML>');
  122.  RETURN;
  123. }
  124.  
  125.  
  126. //
  127. // COMMAND+CONTROL+OPTION+H: Close HTML Tag
  128. //
  129. FUNC ked_1904()
  130. {
  131.  UI_TYPE('</HTML>');
  132.  RETURN;
  133. }
  134.  
  135.  
  136.  
  137. //
  138. // COMMAND+OPTION+T: Open Table Tag
  139. //
  140. FUNC ked_0911()
  141. {
  142.  UI_TYPE('<TABLE BORDER="0" CELLPADDING="1" WIDTH="" HEIGHT="">
  143. <TR><TD>');
  144.  RETURN;
  145. }
  146.  
  147.  
  148. //
  149. // COMMAND+CONTROL+OPTION+: Close Table Tag
  150. //
  151. FUNC ked_1911()
  152. {
  153.  UI_TYPE('</TD></TR>
  154. </TABLE>');
  155.  RETURN;
  156. }
  157.  
  158.  
  159.  
  160.  
  161. //
  162. // COMMAND+OPTION+A: Open Anchor Link Tag
  163. //
  164. FUNC ked_0900()
  165. {
  166.  UI_TYPE('<A HREF="">');
  167.  RETURN;
  168. }
  169.  
  170.  
  171. //
  172. // COMMAND+CONTROL+OPTION+A: Close Anchor Link Tag
  173. //
  174. FUNC ked_1900()
  175. {
  176.  UI_TYPE('</A>');
  177.  RETURN;
  178. }
  179.  
  180.  
  181.  
  182.  
  183. //
  184. // COMMAND+OPTION+CONTROL+I: Open Image Link Tag
  185. //
  186. FUNC ked_1922()
  187. {
  188.  UI_TYPE('<IMG SRC="images/xxx">');
  189.  RETURN;
  190. }
  191.  
  192.  
  193.  
  194.  
  195. //
  196. // COMMAND+B: Break Tag
  197. //
  198. FUNC ked_010B()
  199. {
  200.  UI_TYPE('<BR>');
  201.  RETURN;
  202. }
  203.  
  204.  
  205.  
  206.  
  207. //
  208. // COMMAND+H: HR Tag
  209. //
  210. FUNC ked_0104()
  211. {
  212.  UI_TYPE('<HR ALIGN="CENTER" WIDTH="" SIZE="">');
  213.  RETURN;
  214. }
  215.  
  216.  
  217.  
  218.  
  219. //
  220. // F3 macro: Sig File for Cnation and Digital Creations
  221. //
  222. FUNC ked_0063()
  223. {
  224.  UI_TYPE('<!--    Served by CyberNation -- http://www.cnation.com - 310/656-3450     -->
  225. <!--     Design and layout by Digital Creations Design - 602/992-2112      -->
  226. <!--              Last update: 7/18/96 derek@dc-design.com                 -->
  227.  
  228. ');
  229.  RETURN;
  230. }
  231.  
  232.  
  233.  
  234. //
  235. // F4 macro: Sig File for Southwest Link and Digital Creations
  236. //
  237. FUNC ked_0076()
  238. {
  239.  UI_TYPE('<!--   Served by Southwest Link - http://www.swlink.net - 602/244-8003     -->
  240. <!--     Design and layout by Digital Creations Design - 602/992-2112      -->
  241. <!--              Last update: 7/18/96 derek@dc-design.com                 -->
  242.  
  243. ');
  244.  RETURN;
  245. }
  246.  
  247.  
  248.  
  249. //
  250. // COMMAND+F4 macro: Sig File for Digital Creations Design
  251. //
  252. FUNC key_0176()
  253. {
  254.  UI_TYPE('<!--     Design and layout by Digital Creations Design - 602/992-2112      -->
  255. <!--                        Last update: 7/18/96dc                         -->
  256.  
  257. ');
  258.  RETURN;
  259. }